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-- LoaderUtil ityDefs.mesa 

-- Last Modified by Sandman, February 2, 1978 6:22 PM 

DIRECTORY 

BcdDefs: FROM "bcddefs", 
ControlDofs: FROM "controldef s" , 
LoaderBcdUtilDefs: FROM "Loaderbcdutildefs" , 
LoadStateOefs: FROM "Loadstatedefs" , 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" ; 

LoaderUtilityDefs: DEFINITIONS - 

BEGIN 

FileTable: TYPE = POINTER TO FileTableObject; 

FileTableObject: TYPE » RECORD [ 
file: BcdDefs. FTIndex, 
ext: BOOLEAN, 
filehandle: FileHandle, 
link: FileTable]; 

FileHandle: TYPE = SegmentDefs. Fi leHandle; 
BcdBase: TYPE = LoaderBcdUtilDef s .BcdBase; 
Relocation: TYPE = LoadStateDefs . Relocation; 
GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandle; 
FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 

AddFileName: PROCEDURE [filename: BcdDefs . FTIndex] ; 

FindFileName: PROCEDURE [name: StringDefs .Substring, ext: BOOLEAN] 

RETURNS [found: BOOLEAN, file: FileTable]; 
LookupFileTable: PROCEDURE; 
FileHandleFromTable: PROCEDURE [filename: BcdDefs . FTIndex] 

RETURNS [file: SegmentDefs . FileHandle] ; 
FileNotFound: SIGNAL [name: STRING] RETURNS [file: FileHandle]; 
FinalizeUtilities: PROCEDURE; 
InitializeUtilities: PROCEDURE [bed: BcdBase]; 

ImportBindingLink: TYPE » RECORD [ 
whichgfi: [0..4), 
body: SELECT type: * FROM 

interface => [eti: BcdDefs. EXPIndex] , 
module => [mti: BcdDefs .MTIndex], 
notbound => NULL, 
ENDCASE]; 

Binding: TYPE » DESCRIPTOR FOR ARRAY OF ImportBindingLink; 

AssignControlModules: PROCEDURE [loadee: BcdBase, Reloc: Relocation]; 

EnterCodeFileNames: PROCEDURE [loadee: BcdBase]; 

FindCodeSegment: PROCEDURE [loadee: BcdBase, mth: BcdDefs. MTHandle, 

frame: GlobalFrameHandle] RETURNS [seg: FileSegmentHandle]; 
FindFramelndex: PROCEDURE [mth: BcdDefs .MTHandle, framelinks: BOOLEAN] v 

RETURNS [fsi: CARDINAL]; 
AllocateSingleModule: PROCEDURE [loadee: BcdBase, framelinks: BOOLEAN] 

RETURNS [POINTER]; 
RequiredFrameSpace: PROCEDURE [loadee: BcdBase, alloc, framelinks: BOOLEAN] 

RETURNS [space: CARDINAL]; 
ControlModuleFrame: PROCEDURE [loadee: BcdBase, Reloc: Relocation] 

RETURNS [GlobalFrameHandle]; 
InitlmportBinding: PROCEDURE [size: CARDINAL] RETURNS [binding: Binding]; 
ModulelsBound: PROCEDURE [mth: BcdDefs .MTHandle] ; 
IsModuleBound: PROCEDURE [mth: BcdDefs .MTHandle] RETURNS [BOOLEAN]; 

END 


